home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / 33MASTER.DSK / EXEC DEMO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  74 lines
  1. 100  LET Q$ =  CHR$(34): REM       34 IS THE ASCII CODE      FOR A QUOTATION MARK (")  
  2. 110  TEXT : HOME : VTAB 2: HTAB 12
  3. 120  INVERSE : PRINT "<<  EXEC DEMO  >>": NORMAL : PRINT : PRINT 
  4. 130  PRINT "THIS PROGRAM CREATES A SEQUENTIAL TEXT"
  5. 140  PRINT "FILE NAMED "Q$"DO'ER"Q$" CONTAINING SEVERAL"
  6. 150  PRINT "STRINGS, EACH A LEGAL APPLE II COMMAND."
  7. 160  PRINT : PRINT "WHEN YOU TYPE"
  8. 170  PRINT "EXEC DO'ER"
  9. 180  PRINT "THEN THE COMMANDS IN FILE DO'ER TAKE"
  10. 190  PRINT "CONTROL OF YOUR COMPUTER. EACH COMMAND"
  11. 200  PRINT "WILL BE EXECUTED JUST AS IF IT HAD BEEN"
  12. 210  PRINT "TYPED AT THE KEYBOARD. THE DOS MANUAL"
  13. 220  PRINT "DESCRIBES THE PROGRAM IN MORE DETAIL."
  14. 230  PRINT : HTAB 10
  15. 240  INVERSE : PRINT "<< HAPPY EXECUTING >>": NORMAL : PRINT 
  16. 250  PRINT "PRESS THE SPACE BAR TO MAKE THIS"
  17. 260  PRINT "PROGRAM CREATE THE FILE DO'ER."
  18. 270  PRINT 
  19. 280  PRINT "IF YOU WISH TO STOP THIS PROGRAM NOW,"
  20. 285  PRINT "YOU MAY PRESS THE ESC KEY."
  21. 288  REM   END INSTRUCTIONS AND WAIT FOR KEY TO BE PRESSED.                                        
  22. 290  GET A$: IF A$ =  CHR$(27)  THEN  END : REM  ESC KEY PRESSED
  23. 300  IF A$ =  CHR$(32)  THEN 320: REM  SPACE BAR PRESSED
  24. 310  PRINT  CHR$(7);: GOTO 290: REM   BEEP AND TRY AGAIN                   
  25. 320  HOME : PRINT : REM   PROGRAM STARTS HERE
  26. 330  LET D$ =  CHR$(4): REM CTRL-D
  27. 340  PRINT D$"MON C,I,O"
  28. 350  PRINT D$"OPEN DO'ER"
  29. 360  PRINT D$"WRITE DO'ER"
  30. 370  PRINT "FP"
  31. 380  PRINT "MON C,I,O"
  32. 385  PRINT "REM HERE IS A PROGRAM"
  33. 390  PRINT 
  34. 395  PRINT "100 TEXT:HOME:VTAB 5"
  35. 400  PRINT "110 PRINT"Q$"HERE'S A NEW PROGRAM"Q$
  36. 410  PRINT "120 END"
  37. 415  PRINT 
  38. 420  PRINT "SAVE NEW PROGRAM!!"
  39. 425  PRINT 
  40. 430  PRINT "LIST : REM  NEW PROGRAM!!"
  41. 435  PRINT "REM PAUSE TO LOOK AT LISTING"
  42. 440  PRINT "FOR X=1 TO 8000: NEXT X"
  43. 450  PRINT "INT"
  44. 460  PRINT "MON C,I,O"
  45. 470  PRINT "LOAD COLOR DEMO"
  46. 480  PRINT "LIST"
  47. 490  PRINT "FP"
  48. 495  PRINT "PRINT"Q$"PAUSE TO LOOK AT LISTING"Q$
  49. 500  PRINT "FOR X=1 TO 4000:NEXT X"
  50. 505  PRINT "MON C,I,O"
  51. 510  PRINT "CALL -155  : REM  JUMPS TO MONITOR"
  52. 520  PRINT "800.820 I 821.840"
  53. 530  PRINT "FP"
  54. 535  PRINT "PRINT"Q$"PAUSE TO LOOK AT MONITOR LISTING"Q$
  55. 540  PRINT "FOR X=1 TO 4000:NEXT X"
  56. 545  PRINT "MON C,I,O"
  57. 550  PRINT "CATALOG"
  58. 560  PRINT "RUN NEW PROGRAM!!"
  59. 565  PRINT 
  60. 570  PRINT "115 PRINT"Q$"WE CAN EVEN CHANGE I<CTRL-G><CTRL-G><CTRL-G><CTRL-G><CTRL-G>T"Q$"
  61. 575  PRINT 
  62. 580  PRINT "LIST  : REM  EVEN MORE RECENT PROGRAM!!"
  63. 585  PRINT "REM  PAUSE TO LOOK AT NEW LISTING"
  64. 590  PRINT "FOR X=1 TO 8000:NEXT X"
  65. 600  PRINT "SAVE EVEN MORE RECENT PROGRAM!!"
  66. 610  PRINT "DELETE NEW PROGRAM!!"
  67. 620  PRINT "CATALOG"
  68. 630  PRINT D$"CLOSE DO'ER"
  69. 640  PRINT : PRINT : INVERSE : PRINT "IT'S DONE!!!": NORMAL 
  70. 650  PRINT 
  71. 660  PRINT "YOUR APPLE'S READY TO DO'ER IT'S THING!"
  72. 670  PRINT "ALL YOU HAVE TO DO IS TYPE"
  73. 680  PRINT "EXEC DO'ER"
  74. 690  PRINT "PRESS THE RETURN KEY, AND SIT BACK."